* lisp/ibuf-macs.el (define-ibuffer-filter): Wrap ,@body in a progn.

diff --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el
index 3c95f4c44ce23a45445046054835cbb54f44663a..fc8c127c1c313e96521032fbbadc2239b6c707b1 100644 (file)
--- a/lisp/ibuf-macs.el
+++ b/lisp/ibuf-macs.el
@@ -304,7 +304,7 @@ bound to the current value of the filter.
        (push (list ',name ,description
                   (lambda (buf qualifier)
                      (condition-case nil
-                         ,@body
+                         (progn ,@body)
                        (error (ibuffer-pop-filter)
                               (when (eq ',name 'predicate)
                                 (error "Wrong filter predicate: %S"